home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2004 February
/
Chip_2004-02_cd1.bin
/
software
/
grab
/
grab.exe
/
{app}
/
WinGrab.exe
/
0
/
RCDATA
/
TFORM5
/
TFORM5.txt
Wrap
Text File
|
2001-10-17
|
3KB
|
108 lines
object Form5: TForm5
Left = 297
Top = 235
Width = 458
Height = 218
HorzScrollBar.Tracking = True
ActiveControl = Memo
BorderIcons = [biSystemMenu, biMinimize]
Caption = 'Image text'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsStayOnTop
Menu = MainMenu1
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object Memo: TMemo
Left = 0
Top = 0
Width = 450
Height = 172
Align = alClient
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
MaxLength = 65000
ParentFont = False
ScrollBars = ssVertical
TabOrder = 0
WantTabs = True
end
object MainMenu1: TMainMenu
Left = 104
Top = 48
object File: TMenuItem
Caption = 'File'
ShortCut = 0
OnClick = FileClick
object ReadFromJPEG: TMenuItem
Caption = 'Read text from a JPEG file'
ShortCut = 0
OnClick = ReadFromJPEGClick
end
object WriteIntoJPEG: TMenuItem
Caption = 'Write text into a JPEG file'
ShortCut = 0
OnClick = WriteIntoJPEGClick
end
object N1: TMenuItem
Caption = '-'
ShortCut = 0
end
object OpenTextFile: TMenuItem
Caption = 'Open textfile'
ShortCut = 0
OnClick = OpenTextFileClick
end
object SaveTextFile: TMenuItem
Caption = 'Save textfile'
ShortCut = 0
OnClick = SaveTextFileClick
end
object N2: TMenuItem
Caption = '-'
ShortCut = 0
end
object Exit1: TMenuItem
Caption = 'Close'
ShortCut = 0
OnClick = Exit1Click
end
end
object Clear: TMenuItem
Caption = 'Clear'
ShortCut = 0
OnClick = ClearClick
end
end
object OpenDialog1: TOpenDialog
FileEditStyle = fsEdit
Filter =
'JPEG files (*.JPG,*.JPEG,*.JFIF,*.JIF)|*.JPG; *.JPEG; *.JFIF; *.' +
'JIF|All files (*.*)|*.*'
Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
Title = 'Read text from a JPEG file:'
Left = 48
Top = 32
end
object SaveDialog1: TSaveDialog
DefaultExt = 'jpg'
FileEditStyle = fsEdit
Filter =
'JPEG files (*.JPG, *.JPEG, *.JFIF, *.JIF)|*.JPG; *.JPEG; *.JFIF;' +
' *.JIF|All files (*.*)|*.*'
Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
Title = 'Write text into a JPEG file:'
Left = 64
Top = 72
end
end